Solved: Outlook "Check Names" feature in visual basic.net or C#

2023-03-23 17:30| 来源: 网络整理| 查看: 265

One code snippet is attached, the other is here ... This solved my issue.

聽Public Shared Function AuthenticateUserPassword(ByVal szUserName As String, ByVal szPassword As String) As Boolean 聽聽聽聽 Dim result As Boolean = False 聽聽聽聽 Dim szUserDomain As String = "" 聽聽聽聽 Dim myLDAPPath As String

聽聽聽聽 ' Determine what the domain name should be. 聽聽聽聽 If szUserName.Contains("\") Then 聽聽聽聽聽聽 ' Pull the domain out of the user name. 聽聽聽聽聽聽 szUserDomain = szUserName.Substring(0, szUserName.IndexOf("\")) 聽聽聽聽聽聽 ' Set user name to just user name. 聽聽聽聽聽聽 szUserName = szUserName.Substring(szUserName.IndexOf("\") + 1) 聽聽聽聽 ElseIf szUserName.Contains("@") Then 聽聽聽聽聽聽 ' User Name is in form of "user@domain" 聽聽聽聽聽聽 ' Pull the domain out of the user name. 聽聽聽聽聽聽 szUserDomain = szUserName.Substring(szUserName.IndexOf("@") + 1) 聽聽聽聽聽聽 ' Set user name to just user name. 聽聽聽聽聽聽 szUserName = szUserName.Substring(0, szUserName.IndexOf("@")) 聽聽聽聽 Else 聽聽聽聽聽聽 ' A "." refers to the local system. 聽聽聽聽聽聽 szUserDomain = Environment.MachineName 聽聽聽聽聽聽 szUserName = szUserName.Substring(szUserName.IndexOf("\") + 1) 聽聽聽聽 End If

聽聽聽聽 ' Determine which entry it will need to be. 聽聽聽聽 If String.Compare(szUserDomain, Environment.MachineName, True) = 0 Then 聽聽聽聽聽聽 myLDAPPath = "WinNT://" &聽szUserDomain 聽聽聽聽 Else 聽聽聽聽聽聽 myLDAPPath = "LDAP://" &聽szUserDomain 聽聽聽聽 End If

聽聽聽聽 Try 聽聽聽聽聽聽 Dim entry As DirectoryEntry = New DirectoryEntry(myLDAPPath, szUserName, szPassword) 聽聽聽聽聽聽 Dim nativeObject As Object = entry.NativeObject 聽聽聽聽聽聽 result = True 'no exception thrown, user must exist 聽聽聽聽聽聽 nativeObject = Nothing 聽'be sure and clean up these object as this service could be used many times 聽聽聽聽聽聽 entry = Nothing 聽聽聽聽 Catch ex As Exception 聽聽聽聽聽聽 result = False 聽'exception thrown - no user with that name/pwd combination 聽聽聽聽 End Try 聽聽聽聽 Return result 聽聽 End Function

Public Shared Function AD(ByVal strQuery As String, ByVal strReturn As String, ByRef listbox1 As ListBox) If strQuery = "" Then Exit Function End If 'strQuery = "[email protected]" Dim oroot As DirectoryServices.DirectoryEntry = New DirectoryServices.DirectoryEntry("LDAP://mobilink") Dim osearcher As DirectoryServices.DirectorySearcher = New DirectoryServices.DirectorySearcher(oroot) Dim result As DirectoryServices.SearchResult Dim resultAll As DirectoryServices.SearchResultCollection 'osearcher.Filter = "(&(objectCategory=person)(objectClass=user)(mail=" & strQuery & "))" ' search filter osearcher.Filter = "(&(anr=" & strQuery & ")(mail=*))" ' search filter resultAll = osearcher.FindAll() If resultAll.Count > 0 Then For i As Integer = 0 To (resultAll.Count - 1) listbox1.Items.Add(resultAll(i).Properties("mail")(0).ToString()) Next End If oroot = Nothing osearcher = Nothing result = Nothing resultAll = Nothing Exit Function End Function

Open in new window

【本文地址】

公司简介

联系我们

今日新闻

推荐新闻

专题文章